# Loading In Data and Libraries -------------------------------------------
setwd("")
data<-read.csv("02_Clean Racial Shift Full Replication Proprietary.csv")

library(modelsummary)


# Generate Table ----------------------------------------------------------
datasummary_balance(~Treatment, subset(data, select = c("Treatment", "SC_scale", "ST_scale", "RT_scale", "PT_scale_full",
                                                        "Black_FT", "Latinos_FT", "Asian_FT", "White_FT", "BLM_FT", "Alt_Right_FT",
                                                        "racialpolicy_scale", "nonracialpolicy_scale",
                                                        "backlash_pol", "backlash_person", "support_pol", "support_person")),
                    #output = "~/desktop/dv_means.html",
                    fmt = fmt_sprintf("%.2f")
)